home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 6
/
CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso
/
cucd
/
readers
/
utils
/
gui4cli
/
demo.gc
next >
Wrap
Text File
|
1996-10-28
|
1KB
|
48 lines
G4C
; This is the starting GUI
; Well, its not actually a GUI - all it does, is assign GUIs: and load
; the Demo.g GUI, which will not work if GUIs: is not already assigned.
; Note : this has no window, or anything.. it's just a routine which
; quits after it has done its dirty work.
xOnLoad
ifExists ASSIGN GUIs
GuiLoad GUIs:demos/demo.g
GuiOpen demo.g
else
ezreq "Guis: is not assigned\nPlease take me inside the\nGui4Cli Directory" "BROWSE|QUIT" dummy
if $dummy = 0
GuiQuit demo.gc
stop
else
setvar dummy ""
ReqFile -1 -1 250 -60 "CD inside Gui4Cli Directory" DIR dummy sys:
if $dummy = ""
GuiQuit demo.gc
stop
endif
CD $dummy
endif
ifExists FILE c:assign
CLI 'c:assign GUIs: "$$CURRENT_DIR"'
GuiLoad GUIs:demos/demo.g
else
ezreq 'Command c:Assign not found\nI need it to assign GUIs:' "OK" ""
endif
endif
guiquit demo.gc
xOnFail
ezreq "Problem in assigning directory\nPlease read the Readme file." "OK" ""
GuiQuit Demo.gc